home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Misc.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  561b  |  38 lines
  1. Unit Misc;
  2.  
  3. Interface
  4. Uses Exec;
  5.  
  6. Type
  7.   tMiscResource = Record
  8.           mr_Library: tLibrary;
  9.           mr_AllocArray: Array [0..3] of LongInt;
  10.         End;
  11.  
  12.   pMiscResource = ^tMiscResource;
  13.  
  14.  
  15. Var
  16.   MiscBase: pMiscResource;
  17.  
  18.  
  19. Const
  20.   MR_SERIALPORT = $0;
  21.   MR_ALLOCMISCRESOURCE = $FFFFFFFA;
  22.   MR_PARALLELBITS = $3;
  23.   MR_FREEMISCRESOURCE = $0;
  24.   MR_PARALLELPORT = $2;
  25.   MISCNAME = 'misc.resource';
  26.   NUMMRTYPES = $4;
  27.   MR_SERIALBITS = $1;
  28.  
  29.  
  30. Function AllocMiscResource
  31.          (unitNum: LongInt;
  32.           name: pShortInt): pShortInt;
  33.  
  34. Procedure FreeMiscResource (unitNum: LongInt);
  35.  
  36.  
  37. End.
  38.